home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / advcom.com < prev    next >
Text File  |  1990-11-13  |  2KB  |  49 lines
  1. C
  2. C  COMMON INCLUDE FILE FOR RKB MODULE (SUBROUTINE MAIN)
  3.       IMPLICIT INTEGER*4 (A-Z)
  4. C     INTEGER*2 KTAB,LTEXT,STEXT,KEY,COND,ABB,ATLOC,PLAC,
  5. C    1PLACE,FIXD,FIXED,LINK,PTEXT,PROP,ACTSPK,RTEXT,CTEXT,CVAL,
  6. C    2HINTLC,HINTS,MTEXT,TK,DLOC,ODLOC,ASCVAR
  7.       LOGICAL DSEEN,BLKLIN,HINTED,YES,START,FORCED,PCT
  8.       LOGICAL TOTING,HERE,AT,BITSET,DARK,WZDARK,LMWARN,CLOSNG,PANIC,
  9.      1        CLOSED,GAVEUP,SCORNG,DEMO,YEA,WIZ
  10.      
  11.       COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  12.       COMMON /BLKCOM/ BLKLIN
  13.       COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
  14.       COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
  15.       COMMON /MTXCOM/ MTEXT
  16.       COMMON /PTXCOM/ PTEXT
  17.       COMMON /ABBCOM/ ABB
  18.       COMMON /WIZCOM/ WKDAY,WKEND,HOLID,HBEGIN,HEND,HNAME,
  19.      1        SHORT,MAGIC,MAGNM,LATNCY,SAVED,SAVET,SETUP,WIZ
  20.       COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
  21.      1        KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
  22.      2        HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,
  23.      3        GRATE,CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,
  24.      4        TABLET,CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,
  25.      5        OIL,PLANT,PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,
  26.      6        BEAR,MESSAG,VEND,BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,
  27.      7        VASE,EMRALD,PYRAM,PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,
  28.      8        ENTRNC,DPRSSN,SAY,LOCK,THROW,FIND,INVENT,TURNS,LMWARN,
  29.      9        IWEST,KNFLOC,DETAIL,ABBNUM,NUMDIE,MAXDIE,DKILL,FOOBAR,
  30.      1        BONUS,CLOCK1,CLOCK2,CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG
  31.       COMMON /MISC2/ I,TRXSIZ,CLSMAX,MAGSIZ,LOCSIZ,CTEXT,STEXT,LTEXT,
  32.      1        SECT,TRAVEL,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,MAXTRS,
  33.      2        HINTED,HNTLOC,KK
  34.      
  35.       DIMENSION LINES(18)
  36.       DIMENSION TRAVEL(750)
  37.       DIMENSION KTAB(300),ATAB(300)
  38.       DIMENSION LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
  39.      1          ATLOC(150)
  40.       DIMENSION PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
  41.      1          PTEXT(100),PROP(100)
  42.       DIMENSION ACTSPK(35)
  43.       DIMENSION RTEXT(205)
  44.       DIMENSION CTEXT(12),CVAL(12)
  45.       DIMENSION HINTLC(20),HINTED(20),HINTS(20,4)
  46.       DIMENSION MTEXT(35)
  47.       DIMENSION TK(20),DSEEN(6),DLOC(6),ODLOC(6),HNAME(4)
  48.  
  49.